home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 23
/
Amiga Format AFCD23 (Feb 1998, Issue 107).iso
/
-screenplay-
/
shareware
/
footballbusiness
/
games
/
installfbusiness
< prev
next >
Wrap
Text File
|
1997-12-01
|
2KB
|
62 lines
;$VER:Script for FootballBusiness 1.8.6
(complete 0)
(set @default-dest "Work:")
; Texts
(set #Intro-Txt
(cat "\n\nWillkommen zu \n"
"FootballBusiness 1.8\n"
"Hard Disk Install Script\n\n\n\n"
))(set #Warning-Txt
(cat "Achtung !\n\n\n"
"FootballBusiness 1.8 benötigt ca. 0.7 MB auf Ihrer Festplatte \n\n"
"Updates bitte manuell vornehmen (siehe README-Datei)\n\n"
))(set #Path-Txt
(cat "Wählen Sie das Ziel aus. Ein Unterverzeichnis mit\n"
"dem Namen 'FBusiness' wird automatisch erstellt."
))(set #Path-Help
(cat "\nThis section lets you choose the "
"target directory to install FootballBusiness 1.8. \n\n"
"A directory FBusiness will be created there.\n\n"
"Default is Work:\n\n\n"
@askdir-help
))
(set Assign-Help-Txt
(cat "\nA script located in the target directory wil make "
"the Assigns. The User-Startup will be patched in order "
"to call this script.\n\n\n"
@startup-help
))
; Main
(message #Intro-Txt)
(message #Warning-Txt)
(set target
(askdir (prompt #Path-Txt) (help #Path-Help) (default @default-dest) (newpath)
))
(set @default-dest target)
(complete 25)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "/FootballBusiness/")
(dest (tackon target "FBusiness"))
(pattern "~(Disk.info|FBusiness.info|C|Libs|Devs|L|S|README|FBusinessINF|Inst#?)")
)
(complete 80)
(Copyfiles ; Kopiere Schublade
(prompt "Copying to " #target)
(help @copy-files-help)
(source"/FootballBusiness/FBusinessINF")
(newname "FBusiness.info")
(dest @default-dest)
)
(set @default-dest (tackon target "FBusiness")) ;Log-Datei ins FB-Verzeichnis
(complete 100)